Popular Request/By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO/amiga1/clphst10.lha/ClipHistory/Install/Install ClipHistory

Text File | 1994-03-20 | 9KB | 405 lines

; == English strings =========================================================

(set default-lang 4)

(set #bad-kick "You must be using Kickstart 2.04+ to install ClipHistory")

(set #install-msg
  (cat
    "\n\nWelcome to the ClipHistory installation utility.\n\n"
    "This program lets you install ClipHistory on your Amiga.\n\n"
    "See the manual for more information about ClipHistory.\n\n"
    "ClipHistory ⌐ 1994  Magnus Holmgren."
  )
)

(set #welcome "Welcome to the ClipHistory installer utility.")

(set #copying "Copying ")

(set #were-cliphistory
  (cat
    "Where would you like to install ClipHistory?"
  )
)

(set #help-were-cliphistory
  (cat
    "    If you place ClipHistory in Sys:WBStartup, it will automatically "
    "be started each time you start your Amiga."
  )
)

(set #install-cliphistory-guide
  "Would you like to install ClipHistory.guide?"
)

(set #were-cliphistory-guide
  "Where would you like to install ClipHistory.guide?"
)

(set #help-were-reqchange-guide
  (cat
    "    ClipHistory.guide is the manual for ClipHistory in the special "
    "AmigaGuide« hypertext format. You need a program like AmigaGuide or "
    "MultiView to view it properly."
  )
)

(set #install-cliphistory-man
  "Would you like to install ClipHistory.man?"
)

(set #were-cliphistory-man
  "Where would you like to install ClipHistory.man?"
)

(set #help-were-reqchange-man
  (cat
    "    ClipHistory.man is the manual for ClipHistory in normal text "
    "format, suitable for any More-like program. If you already have "
    "installed ClipHistory.guide then you'll probably have no need for this "
    "file."
  )
)

(set #which-language "\nWhich languages should be installed?")

(set #which-language-help
  (cat
    "    The Amiga can be operated in many different languages. If you "
    "want ClipHistory to use the same language as the Amiga Workbench "
    "then a catalog file must be copied to your harddisk for each "
    "language supported.\n"
    "    To reduce the amount of space consumed by the language files, "
    "you can select to have only the files of specific languages "
    "copied.\n"
    "    Simply check the boxes of the languages you wish to have "
    "available on your system.\n"
    "    Please note that there are not language files for all listed "
    "languages."
  )
)

; == =========================================================

(if (= @language "dansk" )
  (
    (set default-lang 2)
  )
)

; == German strings =========================================================

(if (= @language "deutsch")
  (
    (set default-lang 1)
  )
)

; == =========================================================

(if (= @language "espa±ol")
  (
    (set default-lang 8)
  )
)

; == =========================================================
(if (= @language "franτais")
  (
    (set default-lang 16)
  )
)

; == =========================================================

(if (= @language "italiano")
  (
    (set default-lang 32)
  )
)

; == =========================================================

(if (= @language "nederlands")
  (
    (set default-lang 64)
  )
)

; == =========================================================

(if (= @language "norsk")
  (
    (set default-lang 128)
  )
)

; == =========================================================

(if (= @language "portuguΩs")
  (
    (set default-lang 256)
  )
)

; == =========================================================

(if (= @language "suomi")
  (
    (set default-lang 512)
  )
)

; == Swedish strings =========================================================

(if (= @language "svenska")
  (
    (set default-lang 1024)

    (set #bad-kick
      "Du mσste anvΣnda Kickstart 2.04+ f÷r att installera ClipHistory"
    )

    (set #install-msg
      (cat
        "\n\nVΣlkommen till Installeraren.\n\n"
        "Det hΣr programmet lσter dig installera ClipHistory i din "
        "Amiga.\n\n"
        "Se manualen f÷r information om hur ClipHistory fσr "
        "distribueras."
      )
    )

    (set #welcome "VΣlkommen till installeraren f÷r ClipHistory.")

    (set #copying "Kopierar ")

    (set #were-cliphistory "Var vill du placera ClipHistory?")

    (set #help-were-cliphistory
      (cat
        "  Om du placerar ClipHistory i Sys:WBStartup, sσ kommer programmet "
        "automatiskt att startas varje gσng du startar din Amiga."
      )
    )

    (set #install-cliphistory-guide "Vill du installera ClipHistory.guide?")

    (set #were-cliphistory-guide "Var vill du placera ClipHistory.guide?")

    (set #help-were-cliphistory-guide
      (cat
        "  ClipHistory.guide Σr manualen till ClipHistory i AmigaGuides "
        "speciella hypertextformat. Du beh÷ver ett program som AmigaGuide "
        "eller MultiView f÷r att se den ordentligt."
      )
    )

    (set #install-cliphistory-man "Vill du installera ClipHistory.man?")

    (set #were-cliphistory-man "Var vill du placera ClipHistory.man?")

    (set #help-were-cliphistory-man
      (cat
        "  ClipHistory.man Σr manualen till ClipHistory i vanligt textformat, "
        "lΣmplig f÷r vilket More-liknande program som helst. Har du redan "
        "installerat ClipHistory.guide sσ beh÷ver du f÷rmodligen inte "
        "installera den hΣr filen."
      )
    )

    (set #which-language "\nVilka sprσk vill du installera?")

    (set #which-language-help
      (cat
        "  Amigan kan arbeta med flera olika sprσk. Om du vill att "
        "ClipHistory ska anvΣnda samma sprσk som Amiga Workbench sσ "
        "mσste en sσ kallad katalogfil kopieras till din systemdisk "
        "f÷r varje sprσk.\n"
        "  F÷r att minimera diskutrymmet f÷r sprσkfiler kan du vΣlja "
        "att bara installera filerna f÷r vissa sprσk.\n"
        "  Markera bara rutorna f÷r de sprσk du ÷nskar installera i "
        "din dator."
        "  Obs: Det finns inte sprσkfiler f÷r alla visade sprσk."
      )
    )
  )
)

; ============================================================================

(set @default-dest "")

; Check Kickstart version. Exit if not at least 2.0

(if (< (/ (getversion) 65536) 37)
  (abort #bad-kick)
)

(message #install-msg)

(welcome)

; Copy ClipHistory

(set destination
  (askdir
    (prompt  #were-cliphistory)
    (help    (cat #help-were-cliphistory "\n\n" @askdir-help))
    (default "Sys:WBStartup")
  )
)

(copylib
  (prompt (cat #copying "ClipHistory..."))
  (source "/ClipHistory")
  (dest   destination)
  (infos)
)

(complete 25)

; Copy ReqChange.guide

(if
  (askbool
    (prompt (cat "\n" #install-cliphistory-guide))
    (help   #help-were-cliphistory-guide)
  )

  (
    (set destination
      (askdir
        (prompt  #were-cliphistory-guide)
        (help    (cat #help-were-cliphistory-guide "\n\n" @askdir-help))
        (default "Work:")
      )
    )

    (copyfiles
      (prompt (cat #copying "ClipHistory.guide..."))
      (source "/ClipHistory.guide")
      (dest   destination)
      (infos)
    )

    ; Modify tooltypes of ClipHistory.guide if this is needed

    (if (< (/ (getversion) 65536) 39)
      (tooltype
        (dest (tackon destination "ClipHistory.guide"))
        (setdefaulttool "AmigaGuide")
      )
    )
  )
)

(complete 50)

; Copy ReqChange.man

(if
  (askbool
    (prompt (cat "\n" #install-cliphistory-man))
    (help   #help-were-cliphistory-man)
  )

  (
    (set destination
      (askdir
        (prompt  #were-cliphistory-man)
        (help    (cat #help-were-cliphistory-man "\n\n" @askdir-help))
        (default "Work:")
      )
    )

    (copyfiles
      (prompt (cat #copying "ClipHistory.man..."))
      (source "/ClipHistory.man")
      (dest   destination)
      (infos)
    )
  )
)

(complete 75)

; Copy catalog files

(if (= (exists "Locale:") 2)
  (
    (set lang
      (askoptions
        (prompt #which-language)
        (help   (cat #which-language-help "\n\n" @askoptions-help))
        (choices
          "Dansk"
          "Deutch"
          "English"
          "Espa±ol"
          "Franτais"
          "Italiano"
          "Nederlands"
          "Norsk"
          "PortuguΩs"
          "Suomi"
          "Svenska"
        )
        (default default-lang)
      )
    )


    (set n 0)

    (while
      (set language
        (select n
          "Dansk"
          "Deutch"
          "English"
          "Espa±ol"
          "Franτais"
          "Italiano"
          "Nederlands"
          "Norsk"
          "PortuguΩs"
          "Suomi"
          "Svenska"
          ""
        )
      )

      (
        (if (IN lang n)
          (if (<> 2 n)   ; No catalog for english strings...
            (
              (set catalogs (tackon "/Catalogs" language))

              (set destination (tackon "Locale:Catalogs" language))

              (makedir destination)

              (if (exists (tackon catalogs "cliphistory.catalog"))
                (copylib
                  (source (tackon catalogs "cliphistory.catalog"))
                  (dest destination)
                )
              )
            )
          )
        )

        (set n (+ n 1))
      )
    )
  )
)

(complete 100)

; End of Installer script